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MODULE PASSREAD 


14-Sep-1984 12 


REAL_F ( ETAT LS "Read an Heating value’ 
{DENT = '1-002' 1 Fi 


BEGIN 


Vee E REAR EAAAAAAAARAAAEEEEAAARE EET AAAAAAREAAAAEAARAEEEEE 


® 

* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
* ALL RIGHTS RESERVED. 


* THIS SOFTWARE I© FURNISHED UNDER A LICENSE AND MAY BE USED AND corres 


* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH 
NCLUSION RE 


0 LE 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* TRANSFERRED. 


* THE INFORMATION IN THIS SOFTWARE IS SUBJE 
* AND SHOULD NOT BE CONSTRUED AS A COMM 
* CORPORATION. 


CT TO CHANGE 
I I 


T w 
TMENT BY DIGI 


I 
OFTWARE ON EQUIPMENT WHICH NOT SUPPLIED BY DIGITAL. 


Lee eR AAARAAAAAAEAAE AAA AAA AEE EEE 
' 


'e4¢ 


FACILITY: Pascal Language Support 
ABSTRACT: 


This module contains procedures which read an F_floating value 
from a textfile or a string. 


ENVIRONMENT: User mode - AST reentrant 

AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 
MODIFIED BY: 

1-001 = Original. SBL 1-April-1981 

1-002 = Use PASSSEND_READ. SBL 26-May-1982 


AX-11 Blis 
PASRTL.SRC 


ITHOUT NOTICE 
TAL EQUIPMENT 


sd 1h Ma ASSUMES NO RESPONS ee FOR THE USE OR RELIABILITY OF ITS 


-32 V4.0- 
PASREAREF 


le: PASREAREF .832 Edit: SBL1002 


® 
® 
® 
® 
® 
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® 
® 
® 
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PASSREAD_REAL_F Read an F_floating value e 4 9: AX-11 Bliss-32 V e 
00° Declarations ° 12: a 1382 9}: 35 ‘26 PASRTL.SR ROIP PASREA her B82; 31 — 
; 3 $ } SBTTL ‘Declarations’ 

: ; i } PROLOGUE DEFINITIONS: 

* 1 

; 2 038 } REQUIRE "RTLIN:PASPROLOG'; ! Externais, Linkages, PSECTs, structures 
; § iB 1! 

3 11 1 ! TABLE OF CONTENTS: 

; 8 120 1! 

3 59 121 1 

; 60 1 ¢ 1 FORWARD ROUTINE 

s 61 1 1 PASSREAD_ REAL _F ' Read from textfile 

: 6 oi 4 PASSREADY _REAC_F; i Read from string 

5 64 01 $ 1! 

: 65 01 1 ! MACROS: 

; 66 0128 1! 

:; «67 0129 1! NONE 

; 68 0130 1! 

5 69 ate 1 ! EQUATED SYMBOLS: 

; 70 01 . 1! 

: 71 01 7 3 NONE 

3 7 0134 1! 

3 7 0135 1 ! FIELDS: 

3 74 0136 1! 

3 75 0137 1! NONE 

; 0138 #1! 

3 77 0139 1 =! OWN STORAGE: 

3 78 0140 1! 

: 79 0141 1! NONE 

; & 0142 1! 
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1-002 PASSREAD_REAL_F = heed an F_floating value from 14-8ep-19 4 93:37:28 PASRTL. RESPASREAREE B92: 1 aoe 33 


Hf ZSBTTL "PASSREAD_REAL_F = Read an F_floating value from textfile’ 

8 GLOBAL ROUTINE PASSREAD_REAL_F ( 

84 PFV: REF SPASSPFV_FICE_VARIABLE, ! File variable 

85 ERROR ! Error unwind address 


+e 
FUNCTIONAL DESCRIPTION: 


This function reads an F_floating value from the specified textfile 
and returns it as the function value. 


CALLING SEQUENCE: 
Single.wf.v = PASSREAD_REAL_F (PFV.mr.r C, ERROR. ja.rJ) 
FORMAL PARAMETERS: 


Fwn - OOOono 


PFV - The Pascal File Variable (PFV) passed by reference. 
1 The structure of the PFV is defined in PASPFV.REQ. 
g ERROR - Optional. If specified, the address to unwind to 


n case of an error. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
The F_floating value of the number read. 
SIDE EFFECTS: 
If the file is the standard file INPUT or OUTPUT, it is implicitly opened. 
SIGNALLED ERRORS: 
| 
| 


INVSYNREA = invalid syntax for real value : 
NOTVALTYP= ‘string’ is not a value of type ‘type’ 


' 
. 
' 
. 
' 
. 
J 
. 
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. 
' 
. 
' 
. 
' 
. 
! 
. 
1 
. 
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. 
' 
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' 
* 
‘ 
. 
‘ 
. 
J 
. 
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. 
' 
. 
' 
. 
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. 
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' 
. 
' 
. 
' 
. 
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. 
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. 
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. 
' 
. 
' 
‘ 
. 
' 
. 
' 
. 
' 
. 
4 
. 
' 
. 
le 
. 


FUN —OCOBNOUES UN SO OONOUESWN—-O0On 


BEGIN 

LOCAL 
RESULT, ! F_floating result value 
DESCR: BLOCK Descriptor for convert 


£8 BYTE) i 
FCB: REF S$PAS$FCB_CONTROL_BLOCK,! File Control block 
: VOLA ' Enable argument 
' Enable argument 
| 
| 


IItwIwtwtaiwaiaiatiatoiastaiaiaiataiaiaiaiaiatai abated adadadadad fd adadab dadad dadabadadadbadadadadabadadadod 
DWOOOOOO OO OW 0009 0909 69 09 09 09 SII NSIS SN NNN SIA AA AO PA AAA MMIII BE 
DWONAUE WN 9 OO NAME WN $0 OONAUS WN (HO OONAY FW OO OONAYV SW OV0O7I0UFW 


SOSOCOSOCOOOCOSOCOSOSOSOSOSOCOOCOOOCOOOSOOOSOSOO OOOO OOOOOOOOOOOOOOOOOO 
Romonononofnonononony 3 2 tt 


paper Ay Sty ther pho tt tet Np oe OY Pt + hd OOOO COOOCOOOOOOOOMMWo® 


ee ee ee ee ee Se SS LS eee ee ee Tt 


UNWIND_ACT: VOLATILE, ; 
i ERROR_ADDR: VOLATILE; ! Enable argument 
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1-002 ASSREAD_REAL_F - Read an F_floating value from 14-Sep-1984 12:51: PASRTL.SRC JPASREAREF .B852; 1 (3) | 
BUILTIN 
ACTUALCOUNT; ! Count of arguments 


14 
Get ERROR parameter, if present. 
A + ieee () GEQU 2 
ERROR_ADDR = .ERROR; ! Set unwind address 


PFV_ADDR = PFV CPFVSR_PFVJ; ! Set PFV address 


'¢ 
Validate PFV and get PFV. 


SF SLI EOE Ee 
VIFWN OO OONOUE WI “OO OONOUSWNHOW” 


ENABLE | 
PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 


5s 7 

re 

3 3 

; 3 

. 

, 4 

s 1 

; ¥ 

; % 

s ¥ 

B ¥ 

; ¥ 

.. -# 

| 

eS 

: s18 

4 8 

; 1 22 PASSSVALIDATE_PFV (PFV CPFVSR_PFVJ; FCB); 

a i pee 

: 1 $5 2 i Set unwind action to unlock file. 

; ; $$ 2 le 

= 22 5 UNWIND_ACT = PASSK_UNWIND_UNLOCK; 

eo BE 

: 168 $$ 2 i Do common initialization. 

: 1% 3 oe 

: 171 23 2 PASSSINIT_READ (PFV CPFVSR_PFV], FCB CFCBSR_FCBJ; FCB); 

: 18 SS 

: i $3 : Set up string descriptor for convert call. 

: 176 23 

: 177 23 § DESCR pdscsB CLASS} = DSCSK_CLASS_S; 

; 178 239 3 DESCR CDSC$B~DTYPE) = DSCS$K~DTYPE_T; 

We BRE 

: 181 sts $ i Call utility routine to find a string that looks Like an real. 

3 186 24 § ! If we can't find one, signal an error. 

i BERS 

: 185 246 IF NOT PASSSGET_REAL (PFV CPFVSR_PFV], FCB scceen FCB); 

3 136 asec reser COSC$A_POINTER), DESCR CosC$¥_LENGTH » FCB) 

: 188 Sa SPASSIO_ERROR (PAS$_INVSYNREA,2,DESCR,.FCB CFCBSL_RECORD_NUMBER)) ; 

: 153 0 9 '¢ 

: 191 0 26 i Call convert routine. If it fails, signal an error. | 

: 138 $527 es | 

3 19% 0255 If NOT OTSSCVT_T_F (DESCR, RESULT) 

3; «6195 0256 THEN | 
| 
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PASSREAD_REAL_F Read an F floating value 16-Sep-19 9: AX=-11 Bliss-32 V¥4.0-74 P | 
1-002 PASSREAD_REAL_F f head 6 an F_floating value from 1 =Sep- 1984 93: 35 48 PASRTL.SR RCIP ASREAREF B82; 1 ag (33 
. % P 0257 $PAS$10 ERROR (PASS sNOTVALTYP 3,DESCR 
: 138 P 34 PLIT BYTE (XCHARCOUNT('S SINGLE’ ), SINGLE"), 
: 198 5 vrte CF CBSL_RECORD_NUMBERJ) 
: 199 60 
201 0562 i*Do end-of-READ i | 
° ; Oo end-0T- rocessing. j 
en as ct gina | 
: 8 9 65 PASSSEND_READ (PFV CPFVSR_PFVJ, FCB CFCBSR_FCB)); 
; 206 0267 RETURN .RESULT; 
: 207 0268 : 
; 208 0269 END; ! End of routine PASSREAD_REAL_F 
«TITLE PASSREAD_REAL_F Read an F_floating value | 
-IDENT \1-002\ 
.PSECT _PASSCODE,NOWRT, SHR, PIC,2 
96 00000 P.AAA: .BYTE 6 : 
45 4C 47 4E 49 53 00001 sASCII \SINGLE\ : 
EXTRN PASSREAD_REAL_F 
EXTRN PASSREADV_REAL F 
.EXTRN PASS$$IO WANDL 
XTRN PASSSVAC 
-EXTRN PASSSINIT READ. TOASSSGET REAL 
XTRN ASSSSIG AL, PASSK_ INVSYNRE 
.EXTRN OTSSCVT 5 PASSKE “NOTVALTYP 
*EXTRN PASSSEND REA 
O3FC 00000 .ENTRY Senn. Save R2,R3,R4,R5,R6,R7,R8,~; 0144 
59 000000006 00 9 00002 Ov PASSSSIGNAL, R9 : 
5 18 ¢2 00009 SUBL 4, SP : 
04 AE 7C 0000C CLRQ  ERROR_ADDR : 0190 
OC AE D4 0000F CLRL V_ABDR : 
6D 0078 CF DE 00012 MOVAL 5$,~(FP) : 
02 , 6C 91 00017 CMPB P), #2 : 0210 
05 1F OO01A BLSSU : 
AE 08 AC 00 0001C MOVL ERROR, ERROR_ADDR : 0212 
56 04 AC DO 00021 1$: MOVL » Rb > 0214 
AE 36 D0 900 5 MOVL 6, PFV_ADDR : 
000000006 16 0029 JSB PASSSVAC!DATE_PFV ; 9320 
AE 01 DdO 0002F MOVL #1, UN#IND ACT 3 0 ¢8 
000000006 00 16 00033 JSB PASSSINIT READ : 0232 
AE 0O10E 8F B0 0039 MOVW #270, DESTR+ : 039 
000000006 90 16 0003F JSB ASS$GET_REAL > 0247 
AE 4 pO 00045 MOVL » DESC : 
AE 55 BO 00049 MOVW sR; DESCR : 
11 50 E8 0004D BLBS : 
c8 OA pp 00 9 PUSHL = 36 (FCB) > 0249 | 
14 AE F 000 PUSHAB : 
pp 99 6 PUSHL ; | 
7E 006 8F 9A 0005 MOVZBL PPASSK JNVSYN YNREA, -(SP) : 
69 4 FB 0005C CALLS #4, PASSSSIGNA ; 
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3; Routine Size: 


209 
210 


PASSREAD_REAL_F 


180 bytes, 


027 
027 


0 
1 


000000006 00 
14 


000000006 00 
0 6 


vw 
oo 


7E 
00000000G 00 


1 
1 !<BLF/PAGE> 


Routine Base: 


e 


ay 
ik 
wos $ 
05 

A 

E 

50 

08 AC 
04 Ad 
EC AQ 
FO AO 
F4 = =AQ 
03 

5E 

04 AC 
03 


o 

Oo 
\~foloi~) 

orf 


11 QOO5SF 
pp 061 
F 00063 

FB 00066 
E $090 
DD 000 
9F 0007 
9F 00076 
DD 00079 
9A 00078 
FB 0007F 
11 tf 
16 00084 
DO O008A 
04 00080 
QO08E 

4 00090 

00091 

0 00093 

dO saad 
9F 00098 
9F OO09E 
9F QO0A1 
DD OO0A4S 
DD O00A6 
7D OO0A8 
FB OOOAC 
04 00083 


PASSCODE + 0007 
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16-Sep-19 
- Read on F_floating value from 14-Sep-19 


2$: 


3$: 


4$: 
5$: 


a 238 


§ AX-11 Bliss-32 V4.0-74 
PASRTL’S Re} PASREAREF .B32;1 


:2 
24 
4 
S 
D 
a 
R 


§ 
P 
s TSSCVT_T_F 
iste 


Bex NOTVALTYP, 
#5, PASSSSIGNAL 


tay READ 


-(SP) 


» RO 
RO 
Save nothing 
B(AP), RO 
4(RO), RO 
ERROR ADDR 
UNWINB_ACT 
PFV_ADBR 
#3 
SP 
4 (AP) 


-(SP) 
#3, PAS$$10_ HANDLER 
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PASSREAD_REAL_F Read an F_floating value 1b-Se -1984 01:59:2 AX-11 Bliss-32 V4.0-74 Page 7 PA 
1-002 PASSREADV_REAL_F : Read an F_floating from stri 12-80 8- 1382 93: 29%2 PASRTL.SRC IPASREAREF .B 2:1 ’ (4) | 1- 
; \¢ 0272 1 XSBITL "PASSREADV_REAL_F = Read an F_floating from string’ 
3 1 73 1 GLOBAL ROUTINE PASSREADBV g + F ¢ 

$ 14 74 «1 STRING: REF BLOCR [, BYTE), ! String descriptor 

; 215 iy Se ERROR ! Error unwind address 

; 216 0 6 1 = 

: 217 0277 1 

: 218 0278 1 !++ 
; 3 8 9 : FUNCTIONAL DESCRIPTION: 

ie 74 0281 1! This function reads an F_floating from the specified string | 
3 $$¢ 0 B : } and returns it as the function value. 
6 . } 
: 234 0984 : CALLING SEQUENCE: 
; 226 0286 i Single.wf.v = PASSREADV_REAL_F (STRING.mt.ds C, ERROR.ja.rJ) | 
; 228 $583 1 ! FORMAL PARAMETERS: | 
; $§8 0289 1! 
5 0 0290 1! STRING - The string to read from, passed as a class S$ | 
ie +). 0291 1! (assumed) descriptor. fhe length and pointer 

3 $36 O536 ! are updated to reflect the unread string. 

3; 2s 0294 1! ERROR - Optional. If specified, the address to unwind to 

; 235 0295 1! in case of an error. 

: 236 0396 1 | | 
s en 0297 1 ! IMPLICIT INPUTS: 

; 238 0298 1! 
3: es 0299 1! NONE 

; 240 0300 1! 

; 241 0301 1 ! IMPLICIT OUTPUTS: 

: see 0302 1! 

a 0303 1! NONE 

> 244 0304 1! 

; 245 0305 1 ! ROUTINE VALUE: 

> 246 0306 1! é 

; 247 0307 1! The value of the F_floating read. 

: 248 0308 1! 
3; 249 0309 1 ! SIDE EFFECTS: 

; 250 0310 1 | | 
; 251 0311 1! NONE 
; $26 Bai6 1! 
: $2 031 1 ! SIGNALLED ERRORS: 
: 254 0314 1! 
s 259 0315 1! NONE | 
; 256 0316 1! 
3 @or 0317 1 !-- 
: 258 0318 1 

3; 259 0319 2 BEGIN 

: 260 0320 

: 261 835 LOCAL : 

s eee 03 § PFV: SPASSPFV_FILE_VARIABLE, ' Pascal File Variable 

: 263 032 R ! Result value 
> 264 0324 2 ARG_LIST: VECTOR C2, LONG, i Argument List | 
; 265 b35¢ PFV_ADDR: VOLATILE, ! Enable argument 
: 266 03 $ UNWIND_ACT: VOLATILE, ' Enable argument 

; ti b356 ERROR_ADDR: VOLATILE; ! Enable argument 
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ati PASSREADV_REAL_F : Read an F_floating from stri 12280871 384 93529588 PASRTL SRE SPASREAREF B9251 
; 269 8 9 BUILTIN 
: ty 8 : ACTUALCOUNT; ! Count of arguments 
; te 0536 ENABLE 
; o e ? PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 
; ie 2 Q i" t ERROR if 
: 59 O87 a e parameter, present. 
; 278 0338 
: 6 0 24 IF ACTUALCOUNT () GEQU 2 
3 44 0 43 ERROR_ADDR = .ERROR; ' Set unwind address 
; 28 034 PFV_ADDR = PFV CPFVSR_PFV); ! PF 
: Sa 0844 + * Set PFV address 
$ ¢e2 0345 '¢ 
; see 0346 ! Set up ARG_LIST. 
; 287 0347 le 
; 288 0348 § 
; 289 0349 ARG_LIST (0) = 1; ! One argument 
: 290 0350 2 ARG_LIST C1) = PFV CPFVSR_PFVI; ! PFV address 
; 291 0351 2 
s eve O26 2 ‘+ 
3 eyo 03535 2 ! Call PAS$$DO_READV to do the work, giving it the address of 
3 294 0354 2 i PASSREAD_REAL_F to call. 
; 295 0355 2 le 
; $39 b3e9 é PASS$DO_READV (PFV CPFVSR_PFV], .STRING, ARG_LIST, PAS$READ_REAL_F 
Ps e ° ° e L Py 
; 298 0358 g RESOLT); _ > pes: 
: 299 0359 
:; 300 0360 2 RETURN .RESULT; 
; 301 0361 2 
: Me 0362 1 END; ! End of routine PASSREADV_REAL_F 


-EXTRN PASS$S$DO_READV 
-ENTRY PASSREADV_REALF. Save R2,R3,R4,R6 


o 
So 


5C 00000 
SE 20 C2 00002 SUBL2 . 
7E D4 00005 CLRL  ERROR_ADDR 
04 AE 7C 00007 CLRQ UNWIND ACT 
6D 0030 CF DE 90004 MOVAL 2$, (FP) 
02 6C OOF CMPB (AP), #2 
04 1F 00012 BLSSU. 1 
6 08 AC 00 00014 MOVL ERROR, ERROR_ADDR 
08 AE 14 AE 9E 00018 1$: MOVAB FV, PFV_ADDR 
OC AE 01 00 0001D MOVL #1, ARG_CIST 
10 AE 14 AE 9E 00021 MOVAB PFV, ARG_LIST+4 
54 FF22 CF 9E 00026 MOVAB PASSREAD"REAL_F, R4 
53 OC AE 9E 999 B MOVAB ARG_LIST> R3 
56 14 AE 9E 0002F MOVAB 
52 04 aC dO 000 5 MOVL STRING, R2 
000000006 00 16 000 JSB PAS$$D0_READV 
04 0003 RET 
0000 OO003E 2$: -WORD Save nothing 


Page 
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PASSREAD_REAL_F Read an F_floating value 1b-5¢ 9: AX-11 Bliss-32 V Page 9 
8800 PASSREADV_REAL_F = 2 Read an F_floating from stri 1 730871382 93: 3} ‘28 PASRTL.SR RCIP PASREA abr 682: 1 ’ (4) 

28 8 A 4 40 MOVL B(AP), R 3 

4 A 3 44 MOVL 4(RO), ® 

bf A F 48 PUSHAB ERROR : 

E A oF 048 PUSHAB UNWIND ACT 8 

E46 AO 9F 0004 PUSHAB PFV_ADDR : 

9 DD 5 PUSHL #3 3 

E bp 2 PUSHL SP $ 

43 04 as D MOVQ 4 (AP) s 

000000006 0 03 FB 00059 CALLS #3, basssio. HANDLER : 

04 00060 RET 3 


; Routine Size: 97 bytes, Routine Base: _PASSCODE + 00BB 


s 35 0363 1 
; 304 0364 1 !<BLF/PAGE> 


ime : 
ileseed” Fees 00:31.7 
Lines/CPU Min: 3049 
Lexemes/CPU-Min: 12806 
penety Used: 84 pages 
; Compila 


tion Complete 


F 10 

PASSREAD_REAL_F Read an F_floating value 16-Sep -1984 AX-11 Bliss-32 V4.0-7 Page 10) PA 
1-002 PASSREADV-REAL _F 2 Read an F _floating from stri 14- ~3ep -1984 93: 37: 8 PASRTL.SRCJPASREAREF . b 2:1 9 5) | 
; 308 a8 1 END ! End of module PASSREAD_REAL_F | 
: 308 0367 0 ELUDOM | : 
; PSECT SUMMARY ; 
3 Name Bytes Attributes : 
:  _PASSCODE 284 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) : 
: Library Statistics : 
; ge bog. art, #20, ees Oe ae eS SyERSl§ socoecce Pages Processing ; 
3 File Total Loaded Percent Mapped Time : 
: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 6 0 581 00:01.0 : 
> 7$255$DUA28: CPASRTL.OBJJPASLIB.L32;1 427 99 23 33 00:00.4 : 
: BLISS/CHECK= (FIELD, INITIAL , OPTIMIZE) /NOTRACE/L1S=L1S$:PASREAREF /0BJ=OBJS : PASREAREF MSRC$: PASREAREF /UPDATE = (ENH$ : PASREAREF 3 

Size: 277 code + 7 data bytes : 

Run T 0 , ; 


| 
; COMMAND QUALIFIERS 
| 
| 
| 


PMENT CORPORATION 
AND PROPRIETARY 


Oi AH-BT13A-SE wae 
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